← Index
NYTProf Performance Profile   
For rbm/rbm
  Run on Wed Feb 12 03:38:15 2020
Reported on Wed Feb 12 04:56:35 2020

Filename(eval 8)[/usr/lib/x86_64-linux-gnu/perl/5.28/IO/Handle.pm:174]
StatementsExecuted 1 statements in 2µs
Eval Invoked At/usr/lib/x86_64-linux-gnu/perl/5.28/IO/Handle.pm line 174
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sIO::Handle::::getlineIO::Handle::getline
0000s0sIO::Handle::::getlinesIO::Handle::getlines
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1sub getline {
2 @_ == 1 or croak 'usage: $io->getline()';
3 my $this = shift;
4 return scalar <$this>;
5}
6
7sub getlines {
8 @_ == 1 or croak 'usage: $io->getlines()';
9 wantarray or
10 croak 'Can\'t call $io->getlines in a scalar context, use $io->getline';
11 my $this = shift;
12 return <$this>;
13}
1412µs1; # return true for error checking
15
16;